home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 136 / 136.d81 / b.anth_flag 2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  170 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":gosub60000
  4. 40 dimw$(100),b(15),s$(17),m$(17),t$(17),mc(17),br(17)
  5. 50 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153:ip=13312
  6. 52 sys57812"anth 3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 54 sys57812"anth/flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  8. 56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
  9. 58 poke252,96:poke253,80:syshg
  10. 60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  11. 80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
  13. 100 sp$="                                        "
  14. 110 syssr,96,76,56
  15. 120 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 130 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  17. 140 fori=0to15:reads$:s$(i)=s$+".shp":m$(i)=s$+".mus":t$(i)=s$+".txt"
  18. 150 readmc(i),br(i):next
  19. 151 databotswana,0,6
  20. 152 databrazil,0,6
  21. 153 databrunei,1,6
  22. 154 databulgaria,0,6
  23. 155 databurma,0,5
  24. 156 databurundi,0,6
  25. 157 datacameroon,0,6
  26. 158 datacanada,0,6
  27. 159 dataabu dhabi,0,6
  28. 160 datacentafricrep,0,14
  29. 161 datachad,0,5
  30. 162 datachile,0,5
  31. 163 datapeoprepchina,0,5
  32. 164 datataiwan-china,0,5
  33. 165 datacolombia,0,5
  34. 166 datacongo,0,14
  35. 200 syshg
  36. 210 goto600
  37. 220 :
  38. 230 :rem box
  39. 240 :
  40. 250 poke214,y:print
  41. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  42. 262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  43. 270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  44. 272 printtab(x+1)"[145]<"tab(x+xx)">"
  45. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  46. 290 return
  47. 300 :
  48. 310 :rem load pic/mus/txt
  49. 320 :
  50. 330 poke214,20:print:printtab(14)"[155][204]oading [208]icture[145]"
  51. 340 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  52. 350 printtab(22)"[205]usic  [145]"
  53. 360 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  54. 370 printtab(22)"[215]ords  [145]"
  55. 380 fori=0to99:w$(i)="":next
  56. 390 sys13312,t$(s),dv
  57. 400 h=peek(252)*256+peek(251)
  58. 410 w$(0)=mid$(w$(0),3)
  59. 420 printtab(14)"               "
  60. 430 return
  61. 440 :
  62. 450 :rem display/play
  63. 460 :
  64. 470 poke251,64:poke252,96:poke253,76:sysun
  65. 480 poke252,96:poke253,76:syshg
  66. 490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
  67. 500 return
  68. 510 :
  69. 520 :rem turn off pic/mus
  70. 530 :
  71. 540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
  72. 550 syshg
  73. 560 return
  74. 570 :
  75. 580 :rem loop
  76. 590 :
  77. 600 s=1
  78. 610 print"[147]":poke53272,31
  79. 620 gosub880
  80. 622 poke214,19:print
  81. 624 iff1thenprinttab(4)"space [154] next song  q [154] quit to menu":goto628
  82. 626 printtab(12)"space [154] stop song
  83. 628 [141]330
  84. 630 n[178]0
  85. 640 [141]470:[151]53280,br(s)
  86. 650 [158]sq[171]3,"stopopen"
  87. 660 [139]mc(s)[167][158]sq[171]3,"open"
  88. 670 [129]i[178]0[164]4:[158]sq,1,20[170]i,[200](sp$,38):[130]
  89. 680 [129]i[178]0[164]4
  90. 690 [139][195](w$(n[170]i))[179]3[167]710
  91. 700 [158]sq,20[171][181](([195](w$(n[170]i))[173]2)),20[170]i,w$(n[170]i)
  92. 710 [130]
  93. 720 [158]sq[171]3,"wait"
  94. 730 [139][194](49152)[179][177]7[167]a$[178]" ":[137]830
  95. 740 jv[178][194](56320):[161]a$:[139]a$[178]""[175](jv[178]127)[167]730
  96. 742 [139]f1[167][139]a$[178]"q"[167]f1[178]0:g[178]0:[141]540:[137]620
  97. 750 [139]a$[179][177]""[175](jv[179][177]126)[167]790
  98. 760 [139]n[177][178]h[171]5[167]730
  99. 770 n[178]n[170]5
  100. 780 [137]660
  101. 790 [139]a$[179][177]""[175](jv[179][177]125)[167]830
  102. 800 [139]n[179]2[167]730
  103. 810 n[178]n[171]5
  104. 820 [137]660
  105. 830 [139]a$[178]" "[176]jv[179]112[167][141]540:s[178](s[170]1)[175]15:[137]620
  106. 840 [137]730
  107. 850 :
  108. 860 :[143] menu screen
  109. 870 :
  110. 880 [151]53281,0:[151]53280,0
  111. 882 [139]s[178]0[167]s[178]1:f1[178]0:[137]1050
  112. 890 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]1)[167]1050
  113. 900 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]0)[167]1050
  114. 910 g[178]1:[153]"load":x[178]2:xx[178]35:y[178]0:yy[178]21:[141]250
  115. 920 [153]"for"[163]10)"ortantan^           ortantan^
  116. 930 printtab(10)"[171][192][192][179][158]nthems and[129] [171][192][179][158]lags
  117. 940 [153][163]10)"forexp  /tantantantantantan    tanexp
  118. 950 printtab(13)"[145][192][192][192][192][174]  [176]
  119. 960 [153][163]13)"sysof thefor (NULL)or^(NULL)sysorld
  120. 970 printtab(13)"[129]       [173][189][173][189]
  121. 972 [153]"verify(NULL)close(NULL)close"[163]33)"waitverify(NULL)close(NULL)close"
  122. 974 [153]"verify(NULL)opencloselogclose"[163]33)"waitverify(NULL)closelogclose"
  123. 976 [153]"verify(NULL)"[163]33)"(NULL)"
  124. 978 [153]"verify(NULL)"[163]33)"(NULL)"
  125. 980 [151]214,8:[153]
  126. 990 [129]i[178]0[164]7:[153][163]6)""[199](i[170]65);
  127. 1000 [153][163]9)"cont"[200](s$(i),[195](s$(i))[171]4);
  128. 1010 [153][163]22)""[199](i[170]73);
  129. 1020 [153][163]25)"cont"[200](s$(i[170]8),[195](s$(i[170]8))[171]4):[130]
  130. 1030 [153][163]12)"r  cont'round the world
  131. 1040 printtab(12)"q  [154]quit
  132. 1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
  133. 1052 [151]214,19:[153]:[153]"                                  "
  134. 1060 [161]a$:[139]a$[178]""[167]1060
  135. 1070 [139]a$[179][177]"r"[167]1100
  136. 1080 f1[178]1:s[178]0
  137. 1090 [142]
  138. 1100 [139]a$[178]"q"[167][141]39900:[137]1040
  139. 1110 [139]a$[179]"a"[176]a$[177]"p"[167]1060
  140. 1120 s[178][198](a$)[171]65:f1[178]0
  141. 1130 [142]
  142. 10000 dv[178][194](186):n$[178]"b.anth/flag 2":[159]15,dv,15,"s0:"[170]n$:[160]15:[148]n$,dv:[128]
  143. 39900 [151]214,18:[153]:[153][163]8)"contquit? are you sure? (ycont/ncont)on"
  144. 39910 [161]a$:[139]a$[178]""[167]39910
  145. 39920 [139]a$[178]"y"[167]40000
  146. 39930 [153][163]8)"cont                             on"
  147. 39940 [142]
  148. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  149. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  150. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  151. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  152. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  153. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  154. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  155. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  156. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  157. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  158. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  159. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  160. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  161. 60030 z$(0)[178]"atn(NULL)(NULL)left$val(NULL)(NULL) atn(NULL)str$ asc(NULL)atnchr$(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)str$"
  162. 60032 z$(1)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
  163. 60040 z$(2)[178]"(len) 1995 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
  164. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  165. 60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  166. 60070 z$(5)="shareware or in the public domain."
  167. 60080 z$(6)="[212]o subscribe call 1-800-594-3370."
  168. 60090 poke214,12:print
  169. 60100 fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  170.